home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / intuition / IText.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.7 KB  |  74 lines
  1. "---------------------------------------------------"
  2. " IText Class implements control of Amiga IntuiText "
  3. " except for actually displaying it, which is in the"
  4. " Window class.  Class Font uses the same basic     "
  5. " primitive number.                                 "
  6. "---------------------------------------------------"
  7.  
  8. Class IText :Glyph ! private !
  9. [
  10.    getPens
  11.       ^ <primitive 188 2 0 private> @ <primitive 188 2 1 private>
  12. |
  13.    getTextLength
  14.       ^ <primitive 188 9 private>      "Text length in pixels"
  15. |
  16.    getIText
  17.       ^ <primitive 188 2 6 private>
  18. |
  19.    getDrawMode
  20.       ^ <primitive 188 2 2 private>
  21. |
  22.    getITextOrigin
  23.       ^ <primitive 188 2 3 private> @ <primitive 188 2 4 private>
  24. |
  25.    getFontName
  26.       ^ <primitive 188 2 5 private>
  27. |
  28.    getNextText
  29.       ^ <primitive 188 2 7 private>
  30. |
  31.    getNextTextObject
  32.       ^ <primitive 188 2 8 private>
  33. |
  34.    setPens: newPensPoint ! fp bp !
  35.       fp <- newPensPoint x.
  36.       bp <- newPensPoint y.
  37.  
  38.       <primitive 188 3 0 fp private>.
  39.       <primitive 188 3 1 bp private>
  40. |
  41.    setDrawMode: newDrawMode          "JAM1=0, JAM2=1, COMP=2, INV=4"
  42.       <primitive 188 3 2 newDrawMode private> 
  43. |
  44.    setITextOrigin: newPoint ! x y !
  45.       x <- newPoint x.
  46.       y <- newPoint y.
  47.  
  48.       <primitive 188 3 3 x private>.
  49.       <primitive 188 3 4 y private>
  50. |
  51.    setFont: newFontObject
  52.       <primitive 188 3 5 newFontObject private>
  53. |
  54.    setIText: newITextString
  55.       <primitive 188 3 6 newITextString private>
  56. |
  57.    setNextText: newNextTextObj
  58.       <primitive 188 3 7 newNextTextObj private>
  59. |
  60.    dispose
  61.       <primitive 188 0 private>. "de-allocate the Object"
  62.  
  63.       private <- nil.
  64.  
  65.       ^ nil
  66. |
  67.    getITextObject
  68.       ^ private
  69. |
  70.    new: newITextString
  71.       private <- <primitive 188 1 newITextString>.
  72.       ^ self
  73. ]
  74.